home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / DIALPLUS.SRP < prev    next >
Encoding:
Text File  |  1996-06-05  |  2.5 KB  |  142 lines
  1. rem Copyright (c) PhoneLink plc 
  2. rem DialPlus (31/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. flush
  7. echo script[56]
  8. send "atchar(13)"
  9. timeout 3,modem_fail
  10. find "OK"
  11. label OffToGate  
  12. rem DialPlus Offline to Gate (also contains Pad to Gate)
  13. echo off
  14. flush
  15. echo script[57]
  16. send   "at{InitModemStr}char(13)"
  17. timeout 3,modem_fail
  18. find    "OK"
  19. echo script[52].
  20. send   "atd{DialMode}{PreTel}{Tel}{Postfix}char(13)"
  21. timeout {DialTimeout},connect_fail
  22. finderr 0,BUSY,busy
  23. finderr 103,NO DIALTONE,connect_fail
  24. finderr 103,NO DIAL TONE,connect fail
  25. finderr 0,NO CARRIER,no_carrier
  26. find    "CONNECT"
  27. timeout 10,pad_fail
  28. find    "char(5)"
  29. echo script[60]
  30. send    "{DPPassword}char(13)"
  31. timeout 5,pwd_fail
  32. finderr 0,password,pwd_fail
  33. find    "RETURN: "
  34. send    "{AccessPoint}char(13)"
  35. timeout 10,access_point_fail
  36. find    "PAD>"
  37. label PadToGate
  38. echo off
  39. echo script[53]
  40. send    "SER{SUB}char(13)"
  41. timeout 3,nua_bad1
  42. finderr 0,COM,nua_good
  43. find    "ZZZ"
  44. label nua_bad1
  45. echo script[58]
  46. send    "SER{SUB}char(13)"
  47. timeout 3,nua_bad2
  48. finderr 0,COM,nua_good
  49. find    "ZZZ"
  50. label nua_bad2
  51. echo script[58]
  52. send    "SER{SUB}char(13)"
  53. timeout 3,nua_fail
  54. find    "COM"
  55. label nua_good
  56. echo script[54].
  57. end
  58.  
  59. label GateToPad
  60. echo off
  61. echo script[92]
  62. send    "char(16)CLRchar(13)"
  63. timeout 5,ctrl_p_clear_fail
  64. find    "CONF"
  65. echo script[91].
  66. end
  67.  
  68. label GateToOff
  69. rem Gate to Offline (also contains Pad to Offline)
  70. label PadToOff
  71. echo off
  72. echo script[92]
  73. send   "+++"
  74. timeout 3,command_mode_fail
  75. find    "OK"
  76. echo script[97]
  77. send   "at{TermModemStr}char(13)"
  78. timeout 3,Term_Fail
  79. find    "OK"
  80. echo script[99].
  81. end
  82.  
  83. label modem_offline
  84. echo script[92]
  85. send   "+++"
  86. timeout 3,hang_up
  87. find    "OK"
  88. label hang_up
  89. echo script[97]
  90. send   "at{TermModemStr}char(13)"
  91. timeout 3,hang_fail
  92. find    "OK"
  93. echo script[99]
  94. label hang_fail
  95. dtrtoggle
  96. abort
  97.  
  98. label Term_Fail
  99. echo script[98]
  100. abort
  101.  
  102. label modem_fail
  103. echo script[23]
  104. goto modem_offline
  105.  
  106. label connect_fail
  107. echo script[1]
  108. goto modem_offline
  109.  
  110. label busy
  111. echo script[2]
  112. goto modem_offline
  113.  
  114. label no_carrier
  115. echo script[3]
  116. goto modem_offline
  117.  
  118. label pad_fail
  119. echo script[4]
  120. goto modem_offline
  121.  
  122. label pwd_fail
  123. echo script[19]
  124. goto modem_offline
  125.  
  126. label access_point_fail
  127. echo script[20]
  128. goto modem_offline
  129.  
  130. label nua_fail
  131. echo script[22]
  132. goto modem_offline
  133.  
  134. label ctrl_p_clear_fail
  135. echo script[14]
  136. goto modem_offline
  137.  
  138. label command_mode_fail
  139. echo script[15]
  140. goto modem_offline
  141.  
  142.